-- card: 23429 from stack: in -- bmap block id: 25341 -- flags: 0000 -- background id: 2665 -- name: -- part 1 (button) -- low flags: 00 -- high flags: 8003 -- rect: left=339 top=141 right=163 bottom=439 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: SELFED ----- HyperTalk script ----- on mouseUp delete line 1 of card field F1 delete line 1 of card field F2 delete line 1 of card field F3 repeat 32 times put random of 32 into it if it <=8 then add 1 to card field F1 if it >=25 then add 1 to card field F3 if it >8 and it <25 then add 1 to card field f2 end repeat add the value of card field F1 to card field F4 add the value of card field F2 to card field F5 add the value of card field F3 to card field F6 end mouseUp -- part 2 (field) -- low flags: 00 -- high flags: 0002 -- rect: left=270 top=178 right=200 bottom=332 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 3 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: F1 -- part 3 (field) -- low flags: 00 -- high flags: 0002 -- rect: left=346 top=177 right=199 bottom=408 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 3 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: F2 -- part 4 (field) -- low flags: 00 -- high flags: 0002 -- rect: left=420 top=177 right=199 bottom=482 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 3 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: F3 -- part 5 (field) -- low flags: 00 -- high flags: 0002 -- rect: left=268 top=261 right=283 bottom=330 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 3 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: F4 -- part 6 (field) -- low flags: 00 -- high flags: 0002 -- rect: left=347 top=261 right=283 bottom=409 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 3 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: F5 -- part 7 (field) -- low flags: 00 -- high flags: 0002 -- rect: left=421 top=261 right=283 bottom=483 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 3 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: F6 -- part 8 (button) -- low flags: 00 -- high flags: 8003 -- rect: left=353 top=24 right=46 bottom=420 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: RESET ----- HyperTalk script ----- on mouseUp delete line 1 of card field F1 delete line 1 of card field F2 delete line 1 of card field F3 delete line 1 of card field F4 delete line 1 of card field F5 delete line 1 of card field F6 end mouseUp -- part 9 (button) -- low flags: 00 -- high flags: 8003 -- rect: left=336 top=313 right=335 bottom=436 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: CHI SQUARE ----- HyperTalk script ----- on mouseUp global bagone global bagtwo global bagthree put the value of card field F4 into bagone put the value of card field F5 into bagtwo put the value of card field F6 into bagthree go to card id 25732 put 0 into card field class1 put 0 into card field class2 put 0 into card field class3 put 0 into card field class4 put 0 into card field F5 put 0 into card field F6 put 0 into card field F7 put 0 into card field F8 put bagone into card field "CLASS1" put bagtwo into card field "CLASS2" put bagthree into card field "CLASS3" end mouseUp -- part 10 (button) -- low flags: 00 -- high flags: 8003 -- rect: left=160 top=315 right=337 bottom=260 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: SUB HEADINGS ----- HyperTalk script ----- on mouseUp go to card id 9665 end mouseUp -- part contents for background part 1 ----- text ----- MONOHYBRID CROSS -- part contents for background part 2 ----- text ----- Although a monohybrid cross, the results in this case differ slightly from the first two crosses. You are dealing with plants here and after crossing a true breeding red and white variety of snapdragon, you find that the F1 are all pink. Selfing the F1 produces a unique F2. Can you explain the inheritance mechanism? As before, you might need to run the program several times before a trend in the ratios can be seen. Reset will clear all the windows, multiple selfings are effected by simply clicking on the SELFED button. -- part contents for card part 3 ----- text ----- 19 -- part contents for card part 2 ----- text ----- 8 -- part contents for card part 4 ----- text ----- 5 -- part contents for card part 5 ----- text ----- 8 -- part contents for card part 6 ----- text ----- 19 -- part contents for card part 7 ----- text ----- 5